home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 112
/
FreelogNo112-NovembreDecembre2012.iso
/
Graphisme
/
picturemerge
/
picturemerge.exe
/
{app}
/
picmerge.exe
/
0
/
RCDATA
/
TFRMPICTUREMERGE
/
TFRMPICTUREMERGE.txt
Wrap
Text File
|
2012-06-22
|
7KB
|
323 lines
object frmPictureMerge: TfrmPictureMerge
Left = 192
Top = 124
Caption = 'STG Picture Merge'
ClientHeight = 655
ClientWidth = 923
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Position = poScreenCenter
Scaled = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 16
object lbPercent: TElLabel
Left = 787
Top = 300
Width = 26
Height = 16
Caption = '50%'
end
object ElLabel2: TElLabel
Left = 8
Top = -1
Width = 94
Height = 16
Caption = 'Image 1 (Base)'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object ElLabel3: TElLabel
Left = 472
Top = -1
Width = 112
Height = 16
Caption = 'Image 2 (Overlay)'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object ElLabel4: TElLabel
Left = 472
Top = 335
Width = 111
Height = 16
Caption = 'Image 3 (Merged)'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object ElLabel1: TElLabel
Left = 715
Top = 300
Width = 138
Height = 16
Caption = 'Image 2 Transparency:'
end
object lbRes1: TElLabel
Left = 90
Top = 193
Width = 3
Height = 16
end
object lbRes2: TElLabel
Left = 555
Top = 191
Width = 3
Height = 16
end
object ElLabel5: TElLabel
Left = 8
Top = 335
Width = 77
Height = 16
Caption = 'Resolutions:'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 174
Top = 281
Width = 67
Height = 16
Caption = 'Apply Filter'
end
object Label2: TLabel
Left = 638
Top = 281
Width = 67
Height = 16
Caption = 'Apply Filter'
end
object ImageEn3: TImageEn
Left = 472
Top = 351
Width = 400
Height = 250
Cursor = crArrow
ParentCtl3D = False
AutoFit = True
EnableInteractionHints = True
TabOrder = 2
end
object ImageEn1: TImageEn
Left = 8
Top = 15
Width = 400
Height = 250
Cursor = crArrow
ParentCtl3D = False
ZoomFilter = rfMitchell
AutoFit = True
EnableInteractionHints = True
TabOrder = 0
end
object ImageEn2: TImageEn
Left = 473
Top = 15
Width = 400
Height = 250
Cursor = crArrow
ParentCtl3D = False
ZoomFilter = rfMitchell
AutoFit = True
EnableInteractionHints = True
TabOrder = 1
end
object ElPopupButton1: TElPopupButton
Left = 8
Top = 271
Width = 75
Height = 25
DrawDefaultFrame = False
Caption = 'Open'
TabOrder = 3
OnClick = ElPopupButton1Click
end
object ElTrackBar1: TElTrackBar
Left = 712
Top = 316
Width = 161
Height = 20
Max = 100
Position = 50
TickPosition = tpNone
ShowSelection = True
ActiveBorderType = fbtFlat
InactiveBorderType = fbtFlat
OnChange = ElTrackBar1Change
Color = clBtnFace
ParentColor = False
TabOrder = 6
end
object ElPopupButton2: TElPopupButton
Left = 472
Top = 271
Width = 75
Height = 25
DrawDefaultFrame = False
Caption = 'Open'
TabOrder = 4
OnClick = ElGraphicButton1Click
end
object ElPopupButton3: TElPopupButton
Left = 472
Top = 607
Width = 75
Height = 25
DrawDefaultFrame = False
Caption = 'Save'
TabOrder = 5
OnClick = ElGraphicButton2Click
end
object panel: TElHTMLPanel
Left = 8
Top = 351
Width = 400
Height = 250
Cursor = crDefault
Alignment = taLeftJustify
BevelOuter = bvLowered
Color = clWindow
DockOrientation = doNoOrient
DoubleBuffered = False
Layout = tlTop
TransparentXPThemes = False
end
object cbFilter1: TComboBox
Left = 247
Top = 271
Width = 161
Height = 24
Style = csDropDownList
ItemHeight = 16
TabOrder = 8
OnChange = cbFilter1Change
Items.Strings = (
'None'
'Convert to B&W'
'Negative')
end
object cbFilter2: TComboBox
Left = 711
Top = 271
Width = 161
Height = 24
Style = csDropDownList
ItemHeight = 16
TabOrder = 9
OnChange = cbFilter2Change
Items.Strings = (
'None'
'Convert to B&W'
'Negative')
end
object main1: TImageEn
Left = 379
Top = 104
Width = 102
Height = 81
Cursor = crArrow
ParentCtl3D = False
ZoomFilter = rfMitchell
AutoFit = True
EnableInteractionHints = True
Visible = False
TabOrder = 10
end
object main2: TImageEn
Left = 379
Top = 191
Width = 102
Height = 81
Cursor = crArrow
ParentCtl3D = False
ZoomFilter = rfMitchell
AutoFit = True
EnableInteractionHints = True
Visible = False
TabOrder = 11
end
object dlgOpen: TOpenImageEnDialog
Filter =
'All graphics|*.tif;*.tiff;*.jpg;*.jpeg;*.jpe;*.pcx;*.bmp;*.dib;*' +
'.rle;*.ico;*.cur;*.png;*.wmf;*.emf;*.tga;*.targa;*.vda;*.icb;*.v' +
'st;*.pix;*.pxm;*.ppm;*.pgm;*.pbm;*.avi|TIFF Bitmap (TIF;TIFF)|*.' +
'tif;*.tiff|JPEG Bitmap (JPG;JPEG;JPE)|*.jpg;*.jpeg;*.jpe|PaintBr' +
'ush (PCX)|*.pcx|Windows Bitmap (BMP;DIB;RLE)|*.bmp;*.dib;*.rle|W' +
'indows Icon (ICO)|*.ico|Windows Cursor (CUR)|*.cur|Portable Netw' +
'ork Graphics (PNG)|*.png|Windows Metafile (WMF)|*.wmf|Enhanced W' +
'indows Metafile (EMF)|*.emf|Targa Bitmap (TGA;TARGA;VDA;ICB;VST;' +
'PIX)|*.tga;*.targa;*.vda;*.icb;*.vst;*.pix|Portable Pixmap, Grey' +
'Map, BitMap (PXM;PPM;PGM;PBM)|*.pxm;*.ppm;*.pgm;*.pbm|Video for ' +
'Windows (AVI)|*.avi'
Left = 576
Top = 111
end
object dlgSave: TSaveImageEnDialog
DefaultExt = 'jpg'
Filter =
'JPEG Bitmap (JPG)|*.jpg|TIFF Bitmap (TIF)|*.tif|PaintBrush (PCX)' +
'|*.pcx|Portable Network Graphics (PNG)|*.png|Windows Bitmap (BMP' +
')|*.bmp|OS/2 Bitmap (BMP)|*.bmp|Targa Bitmap (TGA)|*.tga|Portabl' +
'e PixMap (PXM)|*.pxm|Portable PixMap (PPM)|*.ppm|Portable GreyMa' +
'p (PGM)|*.pgm|Portable Bitmap (PBM)|*.pbm'
Options = [ofOverwritePrompt, ofHideReadOnly]
ExOptions = []
AttachedImageEnIO = ImageEnIO1
Left = 568
Top = 143
end
object ImageEnIO1: TImageEnIO
PreviewFont.Charset = DEFAULT_CHARSET
PreviewFont.Color = clWindowText
PreviewFont.Height = -13
PreviewFont.Name = 'MS Sans Serif'
PreviewFont.Style = []
Left = 608
Top = 335
end
object MainMenu1: TMainMenu
Left = 648
Top = 191
object Help1: TMenuItem
Caption = 'Help'
object Help2: TMenuItem
Caption = 'Help'
OnClick = Help2Click
end
object N1: TMenuItem
Caption = '-'
end
object WebPage1: TMenuItem
Caption = 'Web Page'
OnClick = WebPage1Click
end
object About1: TMenuItem
Caption = 'About'
OnClick = About1Click
end
end
end
end